home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL30.PRO < prev    next >
Text File  |  1986-10-07  |  267b  |  10 lines
  1. /* Program 30 */
  2.  
  3. goal
  4.     makewindow(4,7,0,"",0,0,24,80),
  5.     makewindow(1,7,7,"Directory for disk A",0,0,20,35),
  6.     dir ("a:","*.*",_),
  7.     makewindow(2,7,7,"Directory for disk B",0,40,20,35),
  8.     dir ("b:","*.*",_),
  9.     makewindow(3,7,7,"",21,25,3,30).
  10.